COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "HEDIFY"
C00004 ENDMK
C⊗;
BEGIN "HEDIFY"
COMMENT ADD A HAND/EYE PICTURE HEADER TO A BEHEADED FILE;
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
REQUIRE "FILHDR.SAI[VIS,HPM]" SOURCE_FILE;
STRING IFN,OFN; STRING S; INTEGER FOO,H,W,B,SIZE,OC,IC,COUNT,BRCHAR,EOF,FLAG,I;
SAFE INTEGER ARRAY PHD[0:10];
IC←GETCHAN;
DO
   BEGIN
   PRSFIL(""); PRINT("Input File:"); IFN←INCHWL; PRSFIL(IFN);
   OPEN(IC,DEVPRS,'10,19,0,COUNT,BRCHAR,EOF);
   IF ¬EOF THEN LOOKUP(IC,FILPRS,FLAG);
   END
UNTIL ¬(FLAG ∨ EOF);

OUTSTR("LINES, BYTES/LINE, BITS/BYTE:");
S←INCHWL; H←INTSCAN(S,FOO); W←INTSCAN(S,FOO); B←INTSCAN(S,FOO);
SIZE←MAKDIM(H,W,B,PHD[0]); comment make 11 wd skeleton, for out of core pix;
PRINT("Output File:"); OFN←INCHWL;
OC←CREPFL(PHD[0],OFN,1);

FOR I←0 STEP 1 UNTIL PHD[PCLN]-1 DO
   BEGIN
   SAFE INTEGER ARRAY LIN[0:PHD[LNWD]-1];
   ARRYIN(IC,LIN[0],PHD[LNWD]);
   PFLOUT(OC,LIN[0],PHD[LNWD]);
   END;
RELEASE(IC);
PFLCLS(OC);

END "HEDIFY";